home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs46.d81 / vocali.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  34KB  |  5 lines
  1. 10 POKE56,160:CLR
  2. 20 PRINT"[147]FOR 10.5 SECONDS OF SOUND, PRESS RETURN"
  3. 30 GETA$:IFA$=CHR$(13)THENPOKE53,10:POKE54,128:SYS2304:SYS2340:GOTO20
  4. 40 GOTO30
  5.